Option Explicit
Sub D_Sample026()
    Dim mySht     As Worksheet
    Dim myArray() As String
    Dim i         As Long
    ReDim myArray(1 To Worksheets.Count, 1 To 1)
    'ǳƨ즹
    For Each mySht In Worksheets
        myArray(mySht.Index, 1) = mySht.Name
    Next
    With Worksheets.Add.Range("A1").Resize(UBound(myArray), 1)
        .Value = myArray
        .Sort _
            Key1:=.Range("A1"), _
            Header:=xlNo, _
            Orientation:=xlTopToBottom
        For i = .Cells.Count To 1 Step -1
            Worksheets(.Cells(i).Value).Move _
            Before:=Worksheets(1)
        Next
        Application.DisplayAlerts = False
        .Parent.Delete
        Application.DisplayAlerts = True
    End With
End Sub
